use strict;
use warnings;
use Data::Dumper;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:test.db");

my $sth = $dbh->prepare(<<SQL);
   select * from test01 
SQL

$sth->execute;

my %calls;
while (my @row = $sth->fetchrow_array()) {
   my ($id, $name) = @row;
   print "name is $name and id is $id\n";
}

print "stuff\n";